
function Main()

   local nStart := GetTickCount()
   local n

   for n = 1 to 100000
   next

   MsgInfo( Str( GetTickCount() - nStart ) )
   MsgInfo( n )

return nil
